home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Tele / C / Calypso Folder / Connection Files / Apple Vax IBX next >
Encoding:
Text File  |  1992-09-29  |  2.5 KB  |  165 lines  |  [TEXT/MPS ]
  1. !    This is a simple, test CCL script for the CCL Tool.
  2. ! It demonstrates using the IBX to log onto the apple.com vax.
  3. ! It uses the username and password supplied in the Calypso setup dialog.
  4. !
  5. !
  6. !
  7. !         This is the disconnection code. 
  8. !
  9. *-LABEL 0
  10. *Jump 1
  11. !
  12. *-LABEL 1
  13. *CTBClose
  14. *Exit 0 Connection Closed.
  15. !
  16. !This is the connection code. LABEL 0 configures AppleLink for   
  17. !communication.
  18. !
  19. -LABEL 0
  20. CTBTool 105 115 0 ~TOOL
  21. CTBParam 106 Baud 9600
  22. CTBOpen 5
  23. !
  24. -LABEL 1
  25. Flush
  26. CTBCLose
  27. Pause 24
  28. CTBOpen 6
  29. IncVar 1
  30. IfVar 1 3 106
  31. Jump 1
  32. !
  33. -LABEL 2
  34. Flush
  35. DsplyMsg Communication established.
  36. MatchStr 2 3 BER
  37. Xmit D\13
  38. Wait 120
  39. IncVar 2
  40. IfVar 2 3 40
  41. Jump 1
  42. !
  43. -LABEL 3
  44. Flush
  45. DsplyMsg Looking for an open data line...
  46. MatchStr 2 4 IATE
  47. MatchStr 3 8 BUSY
  48. ! Dial The known phone number for the apple vax.
  49. Xmit 42598\13            
  50. Wait 180
  51. IncVar 3
  52. IfVar 3 3 120
  53. Jump 2
  54. !
  55. -LABEL 4
  56. DsplyPic 2
  57. DsplyMsg An open data line has been found.
  58. MatchStr 2 30 login:
  59. MatchStr 3 9 ON H
  60. MatchStr 4 7 FF A
  61. Wait 300
  62. !
  63. -LABEL 5
  64. DsplyPic 1
  65. DsplyMsg Establishing communication with the PBX...
  66. CanBtn 62
  67. MatchStr 1 1 IMEO
  68. MatchStr 2 2 E(T)
  69. Wait 60
  70. Jump 1  ! Try again.
  71. !
  72. -LABEL 6
  73. MatchStr 1 1 IMEO
  74. MatchStr 2 2 E(T)
  75. Wait 180
  76. IncVar 6
  77. IfVar 6 2 42
  78. Xmit ATS0=255\13
  79. Jump 1
  80. !
  81. -LABEL 7
  82. IncVar 4
  83. IfVar 4 3 51
  84. DsplyMsg No response from Apple VAX; trying again...
  85. DsplyPic 0
  86. DsplyPic 1
  87. Jump 1
  88. !
  89. -LABEL 8
  90. IncVar 7
  91. IfVar 7 3 106
  92. DsplyMsg All of the ports are busy now; trying again...
  93. Jump 1
  94. !
  95. -LABEL 9
  96. IncVar 5
  97. IfVar 5 3 106
  98. Jump 1
  99. !
  100. !
  101. -LABEL 30
  102. DsplyPic 3
  103. DsplyMsg Connection established.
  104. SetTries 0
  105. Flush
  106. DsplyPic 4
  107. DsplyMsg Transmitting account name...
  108. DsplyPic 5
  109. -LABEL 31
  110. MatchStr 1 36 Password
  111. MatchStr 2 62 NO CAR
  112. Xmit ~USER\13
  113. !
  114. -LABEL 33
  115. Wait 1200
  116. Jump 62
  117. !
  118. -LABEL 36
  119. DsplyMsg Transmitting password...
  120. Xmit ~PASS\13
  121. MatchStr 1 40 unix
  122. Wait 200
  123. -LABEL 37
  124. GetPass 2 62 The user name “~USER” or password is not being accepted.  To try again, reenter your password and click OK.
  125. DsplyMsg Trying again with reentered password…
  126. Jump 31
  127.  
  128. -LABEL 40
  129. DsplyPic 6
  130. DsplyMsg Access Granted.
  131. Exit 0
  132. !
  133. !
  134. -LABEL 62
  135. CTBCLose
  136. Exit -1
  137. !
  138. -LABEL 63
  139. CTBCLose
  140. Pause 24
  141. CTBOpen
  142. SetVar 1 0
  143. SetVar 2 0
  144. SetVar 3 0
  145. SetVar 4 0
  146. SetVar 5 0
  147. SetVar 6 0
  148. SetVar 7 0
  149. Jump 0
  150. -LABEL 105
  151. Alert -1 The specified tool doesn't exist.
  152. Exit -1
  153. -LABEL 106
  154. Alert -1 There was an error trying to use the given tool.
  155. Exit -1
  156. -LABEL 110
  157. Alert -1 Could not find tool 'Serial Tool' in Communications Folder
  158. Exit -1
  159. -LABEL 115
  160. Alert -1 Error in CMOpen.
  161. Exit -1
  162. -LABEL 120
  163. Alert 62 IBX Error.  Press OK to try again.
  164. Jump 63
  165. !